Private Ʈ As Integer

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

    If Ʈ > 0 Then
    
        If Ʈ < Worksheets.Count Then
        
            Call ν
            
        End If
    
    End If
    

    Ʈ = Worksheets.Count

End Sub